﻿Public Class StylusTipTuner

    Private _DrawingAttributes As New DrawingAttributes With {.Width = 7.5, .Height = 7.5, .FitToCurve = True}

    Public ReadOnly Property DrawingAttributes As DrawingAttributes
        Get
            Return _DrawingAttributes
        End Get
    End Property

    Private Sub StylusTipTuner_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Dim layer = AdornerLayer.GetAdornerLayer(g)
        If layer IsNot Nothing Then
            layer.Add(New ResizeAdorner(g))
        End If
    End Sub
End Class
